﻿Public Class Palabras
    Private palabras As New List(Of String)
    Public Sub New()

        Try
            cargarFichero()
        Catch e As IO.FileNotFoundException
            crearFichero()
            cargarFichero()
        End Try



    End Sub

    Public Function AleatoryWord() As String
        Dim aleatory As New Random
        Return palabras.Item(aleatory.Next(palabras.Count - 1))
    End Function

    Public ReadOnly Property Listas As ObjectModel.ReadOnlyCollection(Of String)
        Get
            Return palabras.AsReadOnly
        End Get
    End Property

    Private Sub cargarFichero()
        Dim fich = New IO.StreamReader("palabras.txt")
        While Not fich.EndOfStream
            Dim palabra As String
            palabra = fich.ReadLine
            palabras.Add(palabra)
        End While
        fich.Close()
    End Sub

    Private Sub crearFichero()
        Dim fich = New IO.StreamWriter("palabras.txt", False)
        fich.WriteLine("Scrum")
        fich.WriteLine("Quest")
        fich.WriteLine("Owner")
        fich.WriteLine("Kunagi")
        fich.WriteLine("Programad")
        fich.WriteLine("Inherit")
        fich.WriteLine("Visual")
        fich.WriteLine("Java")
        fich.WriteLine("Master")
        fich.WriteLine("Ubuntu")
        fich.WriteLine("Windows")
        fich.WriteLine("Macintosh")
        fich.WriteLine("Script")
        fich.WriteLine("Function")
        fich.WriteLine("Metamaster")
        fich.WriteLine("Integer")
        fich.WriteLine("Float")
        fich.WriteLine("BlueScreen")
        fich.WriteLine("Implements")
        fich.WriteLine("Overflow")
        fich.WriteLine("Exception")
        fich.WriteLine("CommandPrompt")
        fich.WriteLine("Overrides")
        fich.WriteLine("Overloads")
        fich.WriteLine("Extends")
        fich.WriteLine("Interface")
        fich.WriteLine("Class")
        fich.WriteLine("Compiler")
        fich.WriteLine("Debug")
        fich.WriteLine("System")
        fich.WriteLine("Library")
        fich.Close()
    End Sub
End Class
